home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 July: Mac OS SDK / Dev.CD Jul 99 SDK1.toast / Development Kits / Mac OS / Interfaces&Libraries / Universal / Interfaces / AIncludes / AppleScript.a < prev    next >
Encoding:
Text File  |  1998-08-17  |  5.8 KB  |  200 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        AppleScript.a
  3. ;
  4. ;    Contains:    AppleScript Specific Interfaces.
  5. ;
  6. ;    Version:    Technology:    AppleScript 1.1
  7. ;                Release:    Universal Interfaces 3.2
  8. ;
  9. ;    Copyright:    © 1992-1998 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        For bug reports, consult the following page on
  12. ;                the World Wide Web:
  13. ;
  14. ;                    http://developer.apple.com/bugreporter/
  15. ;
  16. ;
  17.     IF &TYPE('__APPLESCRIPT__') = 'UNDEFINED' THEN
  18. __APPLESCRIPT__ SET 1
  19.  
  20.     IF &TYPE('__ERRORS__') = 'UNDEFINED' THEN
  21.     include 'Errors.a'
  22.     ENDIF
  23.     IF &TYPE('__APPLEEVENTS__') = 'UNDEFINED' THEN
  24.     include 'AppleEvents.a'
  25.     ENDIF
  26.     IF &TYPE('__OSA__') = 'UNDEFINED' THEN
  27.     include 'OSA.a'
  28.     ENDIF
  29.     IF &TYPE('__TEXTEDIT__') = 'UNDEFINED' THEN
  30.     include 'TextEdit.a'
  31.     ENDIF
  32.  
  33. ; **************************************************************************
  34. ;    Types and Constants
  35. ;*************************************************************************
  36.  
  37. ; 
  38. ;    The specific type for the AppleScript instance of the
  39. ;    Open Scripting Architecture type.
  40. ;
  41.  
  42.  
  43. typeAppleScript                    EQU        'ascr'
  44. kAppleScriptSubtype                EQU        'ascr'
  45. typeASStorage                    EQU        'ascr'
  46. ; **************************************************************************
  47. ;    Component Selectors
  48. ;*************************************************************************
  49.  
  50.  
  51.  
  52. kASSelectInit                    EQU        $1001
  53. kASSelectSetSourceStyles        EQU        $1002
  54. kASSelectGetSourceStyles        EQU        $1003
  55. kASSelectGetSourceStyleNames    EQU        $1004
  56.  
  57. ; **************************************************************************
  58. ;    OSAGetScriptInfo Selectors
  59. ;*************************************************************************
  60.  
  61.  
  62. kASHasOpenHandler                EQU        'hsod'
  63. ; 
  64. ;        This selector is used to query a context as to whether it contains
  65. ;        a handler for the kAEOpenDocuments event. This allows "applets" to be 
  66. ;        distinguished from "droplets."  OSAGetScriptInfo returns false if
  67. ;        there is no kAEOpenDocuments handler, and returns the error value 
  68. ;        errOSAInvalidAccess if the input is not a context.
  69. ;    
  70.  
  71. ; **************************************************************************
  72. ;    Initialization
  73. ;*************************************************************************
  74.  
  75. ;
  76. ; pascal OSAError ASInit(ComponentInstance scriptingComponent, long modeFlags, long minStackSize, long preferredStackSize, long maxStackSize, long minHeapSize, long preferredHeapSize, long maxHeapSize)
  77. ;
  78.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  79.         Macro
  80.         _ASInit
  81.             move.l              #$001C1001,-(sp)
  82.             moveq               #0,D0
  83.             dc.w                $A82A
  84.         EndM
  85.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  86.         IMPORT_CFM_FUNCTION ASInit
  87.     ENDIF
  88.  
  89. ; 
  90. ;        ComponentCallNow(kASSelectInit, 28);
  91. ;        This call can be used to explicitly initialize AppleScript.  If it is
  92. ;        not called, the a scripting size resource is looked for and used. If
  93. ;        there is no scripting size resource, then the constants listed below
  94. ;        are used.  If at any stage (the init call, the size resource, the 
  95. ;        defaults) any of these parameters are zero, then parameters from the
  96. ;        next stage are used.  ModeFlags are not currently used.
  97. ;        Errors:
  98. ;        errOSASystemError        initialization failed
  99. ;    
  100.  
  101. ; 
  102. ;    These values will be used if ASInit is not called explicitly, or if any
  103. ;    of ASInit's parameters are zero:
  104. ;
  105.  
  106.  
  107. kASDefaultMinStackSize            EQU        4096
  108. kASDefaultPreferredStackSize    EQU        16384
  109. kASDefaultMaxStackSize            EQU        16384
  110. kASDefaultMinHeapSize            EQU        4096
  111. kASDefaultPreferredHeapSize        EQU        16384
  112. kASDefaultMaxHeapSize            EQU        33554432
  113. ; **************************************************************************
  114. ;    Source Styles
  115. ;*************************************************************************
  116.  
  117. ;
  118. ; pascal OSAError ASSetSourceStyles(ComponentInstance scriptingComponent, STHandle sourceStyles)
  119. ;
  120.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  121.         Macro
  122.         _ASSetSourceStyles
  123.             move.l              #$00041002,-(sp)
  124.             moveq               #0,D0
  125.             dc.w                $A82A
  126.         EndM
  127.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  128.         IMPORT_CFM_FUNCTION ASSetSourceStyles
  129.     ENDIF
  130.  
  131. ; 
  132. ;        ComponentCallNow(kASSelectSetSourceStyles, 4);
  133. ;        Errors:
  134. ;        errOSASystemError        operation failed
  135. ;    
  136.  
  137. ;
  138. ; pascal OSAError ASGetSourceStyles(ComponentInstance scriptingComponent, STHandle *resultingSourceStyles)
  139. ;
  140.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  141.         Macro
  142.         _ASGetSourceStyles
  143.             move.l              #$00041003,-(sp)
  144.             moveq               #0,D0
  145.             dc.w                $A82A
  146.         EndM
  147.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  148.         IMPORT_CFM_FUNCTION ASGetSourceStyles
  149.     ENDIF
  150.  
  151. ; 
  152. ;        ComponentCallNow(kASSelectGetSourceStyles, 4);
  153. ;        Errors:
  154. ;        errOSASystemError        operation failed
  155. ;    
  156.  
  157. ;
  158. ; pascal OSAError ASGetSourceStyleNames(ComponentInstance scriptingComponent, long modeFlags, AEDescList *resultingSourceStyleNamesList)
  159. ;
  160.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  161.         Macro
  162.         _ASGetSourceStyleNames
  163.             move.l              #$00081004,-(sp)
  164.             moveq               #0,D0
  165.             dc.w                $A82A
  166.         EndM
  167.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  168.         IMPORT_CFM_FUNCTION ASGetSourceStyleNames
  169.     ENDIF
  170.  
  171. ; 
  172. ;        ComponentCallNow(kASSelectGetSourceStyleNames, 8);
  173. ;        This call returns an AEList of styled text descriptors the names of the
  174. ;        source styles in the current dialect.  The order of the names corresponds
  175. ;        to the order of the source style constants, below.  The style of each
  176. ;        name is the same as the styles returned by ASGetSourceStyles.
  177. ;        
  178. ;        Errors:
  179. ;        errOSASystemError        operation failed
  180. ;    
  181.  
  182. ; 
  183. ;    Elements of STHandle correspond to following categories of tokens, and
  184. ;    accessed through following index constants:
  185. ;
  186.  
  187.  
  188. kASSourceStyleUncompiledText    EQU        0
  189. kASSourceStyleNormalText        EQU        1
  190. kASSourceStyleLanguageKeyword    EQU        2
  191. kASSourceStyleApplicationKeyword EQU    3
  192. kASSourceStyleComment            EQU        4
  193. kASSourceStyleLiteral            EQU        5
  194. kASSourceStyleUserSymbol        EQU        6
  195. kASSourceStyleObjectSpecifier    EQU        7
  196. kASNumberOfSourceStyles            EQU        8
  197.  
  198.     ENDIF ; __APPLESCRIPT__ 
  199.  
  200.